library(here)
library(tidyverse)
load(here("puerto_aviles.RData"))Embarques/Desembarques de ácido sulfúrico en el puerto de Avilés (2024)
El Ácido Sulfúrico es uno de los productos que genera Asturiana de Zinc (AZSA) durante su proceso de producción. Este producto es utilizado en la fabricación de fertilizantes, productos químicos y en la refinación de petróleo. La planta de AZSA en Avilés produce ácido sulfúrico a partir de concentrados de zinc y otros metales.

Con los datos que tenemos y que facilita el Puerto de Avilés vamos a analizar los movimientos de embarque en el puerto con destinos a la peninsula y a otros paises. Hemos de tener en cuenta que AZSA exporta tambien el ácido sulfúrico en camiones cisterna a sus clientes más próximos en la península, como Fertiberia, que tiene una planta en Avilés.
Exportación de ácido sulfúrico en buques durante 2024.
Veamos de manera rápida los paises de destino de los embarques de ácido sulfúrico:
puerto_aviles %>%
filter(`Fecha Entrada` >= "2024-01-01" & `Fecha Entrada` <= "2024-12-31") %>%
filter(Operación == "Embarque") %>%
filter(Mercancia == "ACIDO SULFURICO") %>%
count(Pais_dest, sort = TRUE)# A tibble: 6 × 2
Pais_dest n
<fct> <int>
1 ESPAÑA 10
2 MARRUECOS 7
3 ESTADOS UNIDOS 5
4 FRANCIA 1
5 IRLANDA 1
6 ITALIA 1
En número de buques embarcados los destinos domésticos son los que más predominan, pero veamos en tonelaje total.
puerto_aviles %>%
filter(as.Date(`Fecha Entrada`) >= as.Date("2024-01-01") &
as.Date(`Fecha Entrada`) <= as.Date("2024-12-31")) %>%
filter(Operación == "Embarque") %>%
filter(Mercancia == "ACIDO SULFURICO") %>%
group_by(Destino, Pais_dest) %>%
summarise(Tonelaje_total = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
arrange(desc(Tonelaje_total))# A tibble: 9 × 3
Destino Pais_dest Tonelaje_total
<fct> <fct> <dbl>
1 SAVANNAH ESTADOS UNIDOS 58900
2 JORF LASFAR MARRUECOS 55900
3 TARRAGONA ESPAÑA 42000
4 CASTELLON ESPAÑA 29000
5 PASADENA ESTADOS UNIDOS 18500
6 MOHAMMEDIA MARRUECOS 9607
7 PORTO VESME (PORTOSCURO) ITALIA 7000
8 AUGHINISH ISLAND IRLANDA 4400
9 BAYONNE FRANCIA 3675
En este caso vemos que a Estados Únidos se envía un mayor tonelaje que al resto de destinos y principalmente al puerto de Savannah. Lo podemos representar de manera gráfica:
puerto_aviles %>%
filter(`Fecha Entrada` >= "2024-01-01" & `Fecha Entrada` <= "2024-12-31") %>%
filter(Operación == "Embarque") %>%
filter(Mercancia == "ACIDO SULFURICO") %>%
group_by(Destino, Pais_dest) %>%
summarise(Tonelaje_total = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
arrange(desc(Tonelaje_total)) %>%
ggplot(aes(x = reorder(Destino, Tonelaje_total), y = Tonelaje_total, fill = Pais_dest)) +
geom_col() +
coord_flip() +
labs(title = "Tonelaje total de Ácido Sulfúrico embarcado (2024)",
x = "Destino", y = "Tonelaje total (ton)") +
theme_minimal()
Uno de los principales clientes de AZSA es la empresa Fertiberia, que utiliza el ácido sulfúrico en la producción de fertilizantes. Fertiberia tiene una planta en Avilés, lo que facilita la logística del transporte del ácido sulfúrico desde AZSA. El ácido sulfúrico se transporta en camiones cisterna y se utiliza en la producción de fertilizantes nitrogenados y otros productos químicos. Con el objeto de asegurar su producción, Fertiberia también importa ácido sulfúrico de otros países por lo que dispone en el muelle de Valliniello del puerto de Avilés de un gran tanque de almacenamiento de ácido sulfúrico.
Desembarques de ácido sulfúrico en buques durante 2024.
puerto_aviles %>%
filter(`Fecha Entrada` >= "2024-01-01" & `Fecha Entrada` <= "2024-12-31") %>%
filter(Operación == "Desembarque") %>%
filter(Mercancia == "ACIDO SULFURICO") %>%
count(Origen, Pais_orig, Buque, Bandera, Tonelaje, sort = TRUE)# A tibble: 1 × 6
Origen Pais_orig Buque Bandera Tonelaje n
<fct> <fct> <chr> <fct> <dbl> <int>
1 SETUBAL PORTUGAL NQ LAELIA MALTA 5000 1
Ha habido un solo desembarque de 5000 Ton. realizado por el buque NQ Laelia con bandera de Malta.
¿Como se transporta el ácido sulfútrico?
Una de las variables de la tabla de datos del puerto de Avilés es el tipo de buque. En este caso, el ácido sulfúrico se transporta en generalmente en graneleros líquidos, que son buques diseñados para transportar líquidos a granel, como productos químicos, petróleo y otros líquidos industriales. Estos buques están equipados con tanques especiales y sistemas de bombeo para cargar y descargar el líquido de manera segura y eficiente. El ácido sulfúrico es un líquido corrosivo y peligroso, por lo que se requiere un manejo cuidadoso durante su transporte. No obstante hay otro tipo de buque que es es de transporte especializado que también transportan líquidos.
Vamos a hacer un gráfico que nos muestre las mercancias que transportaron estos dos tipos de buque durante el año 2024.
puerto_aviles %>%
filter(`Fecha Entrada` >= "2024-01-01",
`Fecha Salida` <= "2024-12-31") %>%
filter(!`Tipo Buque` %in% c("OTROS BUQUES", "CARGA GENERAL", "GRANELEROS SOLIDOS")) %>%
count(`Tipo Buque`, Mercancia) %>%
ggplot(aes(x = `Tipo Buque`, y = Mercancia, fill = n)) +
geom_tile() +
labs(title = "Relación entre tipo de buque y mercancía",
x = "Tipo de Buque",
y = "Mercancía",
fill = "Número de escalas") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
Comprobamos que en el caso del transporte de ácido sulfúrico, se usaron los dos tipos de buques, pero el granelero líquido es el que más se utilizó.
Si queremos saber el número de escalas con mayor exactitud:
puerto_aviles %>%
filter(`Fecha Entrada` >= "2024-01-01",
`Fecha Salida` <= "2024-12-31") %>%
filter(!`Tipo Buque` %in% c("OTROS BUQUES", "CARGA GENERAL", "GRANELEROS SOLIDOS")) %>%
filter(Mercancia == "ACIDO SULFURICO") %>%
count(`Tipo Buque`, Operación) %>%
arrange(desc(n)) # A tibble: 3 × 3
`Tipo Buque` Operación n
<fct> <fct> <int>
1 GRANELEROS LIQUIDOS Embarque 18
2 TRANSPORTES ESPECIALIZADO Embarque 7
3 GRANELEROS LIQUIDOS Desembarque 1